*  FILE NAME: INPMEDI2.PRG
*  BY:
*  DATE: May 22, 1996
*  DESC:
*  CALLED BY:
*  DATA FILES:
STORE 0 TO VADD
STORE ' ' TO VMORE
sele 2
count to cnt
declare fild[cnt]
declare kod1[cnt]
cr=0
go top
do while .not. eof()
   cr=cr+1
   fild[cr]=main_area
   kod1[cr]=area_code
   skip
enddo
set colo to w/b
inkey()
set colo to w+/rb,gr+/r
@ 11,15 clea to 23,41
@ 11,15 to 23,41 double
pilih=achoice(12,16,22,40,FILD)
IF LASTKEY()=13
   kode1=kod1[pilih]
   MAIN = FILD[PILIH]
ELSE
   IF LASTKEY()=27
      DO INPMEDRG
      if lastkey()=27
         return
       endif
      SELE 1
      RETURN
   ENDIF
ENDIF
*Formatted by: Herman T Ver. 7.1  on May 22, 1996.
